GO TO marker("LOOP 1") global recording,chipset recording = 0puppetsprite 11,1set the castnum of sprite 11 = the number of cast "litshow"set the castnum of sprite 21 = the number of cast "train"puppetsprite 21,0repeat with xxx = 13 to 20 set the locv of sprite xxx = - abs(the locv of sprite xxx)end repeatset the castnum of sprite 12 = the number of cast "baroff"updatestageglobal recordingpuppetsprite 11,1puppetsprite 21,1if recording = 1 then set the castnum of sprite 21 = the number of cast "littrain"else set the castnum of sprite 11 = the number of cast "litshow"end ifupdatestage-- select spriteglobal chipchip(mSelect,the clickon)global recording,chipchip(mclear, -1)chip(mdisplay)chip(mreset)set recording = 1puppetsprite 21,1repeat with xxx = 13 to 20 set the locv of sprite xxx = abs(the locv of sprite xxx)end repeatset the castnum of sprite 12 = the number of cast "baron"set the castnum of sprite 21 = the number of cast "littrain"set the castnum of sprite 11 = the number of cast "show"puppetsprite 11,0updatestagepuppetsound 0global bd1,bd2set bd1 = the puppet of sprite 11set bd2 = the puppet of sprite 21puppetsprite 11,0puppetsprite 21,0puppetsprite 22,0puppetsprite 23,0updatestagepreload "endload"starttimer-- quitplay doneif the soundbusy of 1 then go the frameelse puppetsound 0 end ifif the soundbusy of 1 then go "h2"-- clear chip - keydown stuff--51 - mac delete key-- 46 ibm delete keyput the keycodeif (the keycode = 51) or (the keycode = 46) then global chip chip(mDel) chip(mDisplay) chip(mInsert) set the keydownscript = ""end if-- eat the keyput the key into key go to marker ("LOOP 1")if the soundbusy of 1 then go "h1"if the soundbusy of 1 then go "h3"puppetsprite the clickon,1set jambi = the castnum of sprite the clickonset newt = "lit"& the name of cast jambiset the castnum of sprite the clickon = the number of cast newtupdatestagerepeat while the stilldownend repeatpuppetsprite the clickon,0updatestagepuppetsprite 11,0puppetsprite 21,0updatestagego "quit"if the soundbusy of 1 then go "h4"if the soundbusy of 1 then go "h5"-- show insertion pointglobal chipSet the keydownscript to "go to marker(1)"chip(mSelect,13)if the soundbusy of 1 then go "h6"-- playglobal chip,flag,recordingif recording = 1 then chip(mTrack) put flag + 1 into flag if flag = 2 then put 0 into flag end if put the result into temp if temp = -1 then set the keydownscript to "go to marker (1)" set the mousedownscript to EMPTY chip(mReset) go to marker("LOOP 1") puppetsprite 22,0 set the castnum of sprite 21 = the number of cast "littrain" updatestage end if if temp = 0 then go to marker(0) puppetsprite 22,0 set the castnum of sprite 21 = the number of cast "littrain" updatestage end if if temp = 1 then go to marker("SHAKE") end if if temp = 2 then go to marker("SIT") end if if temp = 3 then go to marker("SPEAK") end if if temp = 4 then go to marker("JUMP") end if if temp = 5 then go to marker("SPIN") end if if temp = 6 then if flag = 0 then go to marker("SING") else go to marker ("SING 2") end if end if if temp = 7 then if flag = 0 then go to marker("DANCE") else go to marker("dance 2") end if end if if temp = 8 then go to marker("LIE DOWN") end if end ifif the soundbusy of 1 then go the framepuppetsprite 13,falsepuppetsprite 14,falsepuppetsprite 15,falsepuppetsprite 16,falsepuppetsprite 17,falsepuppetsprite 18,falsepuppetsprite 19,falsepuppetsprite 20,falsepuppetsprite 21,falsepuppetsprite 22,falsepuppetsprite 23,falsepuppetsprite 24,falseset the keyDownScript to EMPTYif the castnum of sprite 12 = the number of cast "baroff" then exitpuppetsprite 22,1set jambi = the castnum of sprite 22set newt = "lit"& the name of cast jambiset the castnum of sprite 22 = the number of cast newtset the castnum of sprite 21 = the number of cast "train"updatestageglobal spotret,sayitset spotret = "loop 1"set the keydownscript = "spotstop"set sayit = truedoplay-- displayglobal chipchip(mReset)chip(mDisplay)-- when mousedown come here set the keydownscript to "go to marker(1)" set the mousedownscript to EMPTY --chip(mReset) go to marker("LOOP 1")-- check to see which pt buttonglobal sayItif the mouseCast = the number of cast "play" then put FALSE into sayIt set the keydownscript to "go to frame 5" doPlayelse if the mouseCast = the number of cast "train" then put TRUE into sayIt set the keydownscript to "go to frame 5" doPlay else go to marker ("LOOP 1") end ifend ifset the keydownscript = "vlent"set the mousedownscript = "mlent"set the castnum of sprite 22 = the number of cast "play"global recordingif recording = 1 then set the castnum of sprite 21 = the number of cast "littrain"else set the castnum of sprite 11 = the number of cast "litshow"end if-- setup soundif the timer <1480 then go to the frame -3end ifset the keydownscript to "go to marker(1)"-- say the word sitglobal sayItif sayIt = TRUE then puppetsound "c-sit"end ifif the soundbusy of 1 then go the frameelse puppetsound 0 end if-- say the word spinglobal sayItif sayIt = TRUE then puppetsound "c-spin"end if-- say the word shakeglobal sayItif sayIt = TRUE then puppetsound "c-shake"end if-- say the word downglobal sayItif sayIt = TRUE then puppetsound "c-down"end if-- say the word jumpglobal sayItif sayIt = TRUE then puppetsound "c-jump"end if-- say the word danceglobal sayItif sayIt = TRUE then puppetsound "c-dance"end if-- say the word speakglobal sayItif sayIt = TRUE then puppetsound "c-speak"end if-- say the word singglobal sayItif sayIt = TRUE then puppetsound "c-sing"end ifset the mouseDownScript to EMPTY-- setup soundif the soundBusy of 1 then go to marker (0)end if-- setup soundif the timer <1790 then go to the frame end ifgo the frame + 1play done-- setupglobal chip,recording,sayitpuppetsprite 13,truepuppetsprite 14,truepuppetsprite 15,truepuppetsprite 16,truepuppetsprite 17,truepuppetsprite 18,truepuppetsprite 19,truepuppetsprite 20,truerepeat with xxx = 13 to 20 set the locv of sprite xxx = -abs(the locv of sprite xxx) set the forecolor of sprite xxx = 255end repeatpuppetsprite 12,1updatestageset recording = 0set sayit = 1puppetsprite 11,1set the castnum of sprite 11 = the number of cast "litshow"updatestageput array(mNew,31,41,359,8) into chipchip(mClear,-1)go marker(1)puppetTransition 23, 0, 64, 1 go "loop 1"if the timer < (14.4 * 60) then go the frame -7-- do click on sitglobal chipglobal sayitset sayit = 0--puppetsound "c-sit"global recordingif recording = 0 then go "sit" else chip(mSet,2) chip(mDisplay) chip(mInsert)end if-- do click on speakglobal chipglobal sayitset sayit = 0--go "speak"puppetsound "c-speak"global recordingif recording = 0 then go "speak" else chip(mSet,3) chip(mDisplay) chip(mInsert)end if-- do click on jumpglobal chipglobal sayitset sayit = 0--go "jump"puppetsound "c-jump"global recordingif recording = 0 then go "jump" else chip(mSet,4) chip(mDisplay) chip(mInsert)end if-- do click on spinglobal chipglobal sayitset sayit = 0--go "spin"puppetsound "c-spin"global recordingif recording = 0 then go "spin" else chip(mSet,5) chip(mDisplay) chip(mInsert)end if-- do click on singglobal chipglobal sayitset sayit = 0puppetsound "c-sing"global recordingif recording = 0 then if random(2) = 1 then go "sing" else go "sing 2" end ifelse chip(mSet,6) chip(mDisplay) chip(mInsert)end if-- do click on danceglobal chipglobal sayitset sayit = 0puppetsound "c-dance"global recordingif recording = 0 then if random(2) = 1 then go "dance" else go"dance 2" end if else chip(mSet,7) chip(mDisplay) chip(mInsert) end if-- do click on downglobal chipglobal sayitset sayit = 0--go "LIE DOWN"puppetsound "c-down"global recordingif recording = 0 then go "lie down"else chip(mSet,8) chip(mDisplay) chip(mInsert)end if-- do click on shakeglobal chipglobal sayitset sayit = 0puppetsound "c-shake"--go "shake"global recordingif recording = 0 then go "shake"else chip(mSet,1) chip(mDisplay) chip(mInsert)end if-- screwing around - holding keys donwset the keydownscript to EMPTYgo marker("loop 1") -- screwing around - holding keys downgo the frame - 5puppetsprite the clickon,1set jambi = the castnum of sprite the clickonset newt = "lit"& the name of cast jambiset the castnum of sprite the clickon = the number of cast newtupdatestagerepeat while the stilldownend repeatpuppetsprite the clickon,0updatestagego "help"puppetsprite the clickon,1set jambi = the castnum of sprite the clickonset newt = "lit"& the name of cast jambiset the castnum of sprite the clickon = the number of cast newtupdatestagerepeat while the stilldownend repeatpuppetsprite the clickon,0updatestagego "quit"go "helpend"
vwci
----
1025: SPOT SIT SAMPCplain
1026: SPOT SIT SAMPCplain
1027:
1028:
1029:
1030:
1031:
1032:
1033:
1034:
1035:
1036: on mouseUp end mouseUpoldplay
1037: oldtrain
1039:
1040: SIT SPOT SIT
1041: offclick
1042: onclick
1043: SPOTm11
1044: baron
1045: baroff
1066: see spike spin
1070: see spike spin
1071: see spike spin
1077: shake1
1110: see spike spin
1126: SPOT FOOT LEFT.PICT 0312
1127: SPOT FOOT LEFT 2.PICT 0313
1128: SPOT FOOT LEFT.PICT 0312
1129: SPOT FOOT LEFT 2.PICT 0313
1130: SPOT FOOT LEFT 2.PICT 0313
1134: Shake
1135: Sit
1136: Speak
1137: Jump
1138: Spin
1139: Sing
1140: Dance
1141: Down
1142: Empty
1144: LITTLE SPOT ICONS
1185: DANCE1a
1186: hast pop
1187: Film Loop
1193: C-SIT
1194: C-SPIN
1195: C-SHAKE
1196: C-DOWN
1197: C-JUMP
1198: C-DANCE
1199: C-SPEAK
1200: C-SING
1201: sss sit
1202: SSS SPIN
1203: SSS SHAKE
1204: SSS LAY DOWN
1205: SSS JUMP
1206: Twinkle Twinkle 2
1207: sss sing2 a
1209: Walking Across Room.S
1210: bone up in air
1211: spot music1.7
1212: yum
1213: gulp
1214: SPOT 3
1215: dance 3
1217: play
1218: train
1219: quit
1220: help
1221: on mouseUp puppetsprite the clickon,1 set jambi = the castnum of sprit
1225: litplay
1226: littrain
1227: litquit
1228: lithelp
1229: on mouseUp puppetsprite the clickon,1 set jambi = the castnum of sprite t
1230: on mouseUp puppetsprite the clickon,1 set jambi = the castnum of sprite t
